package NBU::Schedule;

require 5.002;

use strict;
use Carp;

BEGIN {
  use Exporter   ();
  use AutoLoader qw(AUTOLOAD);
  use vars       qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
  $VERSION =     '0.01';
  @ISA =         qw();
  @EXPORT =      qw();
  @EXPORT_OK =   qw();
  %EXPORT_TAGS = qw();
}

sub new {
  my $class = shift;
  my $Schedule = {
  };

  bless $Schedule, $class;

  if (@_) {
    $Schedule->{NAME} = shift;
  }
  return $Schedule;
}

sub name {
  my $self = shift;

  return $self->{NAME};
}

1;

__END__
